10 REM---------------------------------
20 REM UP MASKE  (DATAS)
30 REM   JACQUES EFFENBERG
40 REM---------------------------------
50 :
1000 DIMP(115):FORI=0TO115:READX:P(I)=X:SP=SP+X:NEXT
1010 DATA1249,1266,1206,1429,1453,1416,1184,1949,1754,1732
1020 DATA1665,1376,1854,1202,1653,1611,2033,1588,1979,1674
1030 DATA1433,1523,1343,1359,1493,1984,1744,1413,1649,1693
1040 DATA1883,1478,1422,1121,1447,1745,1952,1318,1747,1954
1050 DATA1519,1860,1592,1701,1429,2066,1590,1986,1392,2063
1060 DATA1762,1649,1811,1225,1887,1537,1512,1552,1640,1510
1070 DATA1878,1306,1379,1529,1544,1473,1799,1798,1244,1667
1080 DATA1282,1244,1703,1404,1342,1319,1350,1372,1414,1392
1090 DATA1433,1529,1708,2062,1481,1995,1689,1918,1744,2013
1100 DATA2050,1369,1363,1623,1454,1322,1282,1264,934,668
1110 DATA808,793,677,826,723,762,716,661,752,763
1120 DATA736,827,564,788,759,387
1130 IFSP<>168139THENPRINT"FEHLER PRUEFSUMME !":END
1140 FORI=49152TO50539:READX:POKEI,X:S=S+X
1150 Z1=Z1+1:S1=S1+X
1160 IFZ1=12ANDS<>P(P1)THEN1210
1170 IFZ1=12THENP1=P1+1:S=0:Z1=0
1180 NEXT
1190 IFS1<>168139THENPRINT"FEHLER LETZTE REIHE DATA !":END
1200 PRINT"OK.":END
1210 Z$=STR$(PEEK(64)*256+PEEK(63))
1220 Z1=LEN(Z$)-1:Z2=2:SP=633:PRINTCHR$(147)
1230 FORI=0TOZ1-1:Z(I)=VAL(MID$(Z$,Z2,1)):Z2=Z2+1:NEXT
1240 PRINT" ** FEHLER IN ZEILE : "Z$
1250 POKE631,76:POKE632,105
1260 FORI=0TOZ1-1:POKESP,Z(I)+48:SP=SP+1:NEXT
1270 POKESP+1,13:POKE198,Z1+4
1280 END
1290 DATA 169, 0, 141, 169, 2, 141, 170, 2, 141, 171, 2, 141
1300 DATA 172, 2, 141, 173, 2, 141, 174, 2, 141, 175, 2, 141
1310 DATA 176, 2, 32, 43, 193, 224, 2, 176, 45, 142, 169, 2
1320 DATA 32, 43, 193, 202, 48, 52, 224, 25, 176, 48, 134, 252
1330 DATA 32, 43, 193, 202, 48, 56, 224, 40, 176, 52, 134, 253
1340 DATA 32, 43, 193, 32, 126, 192, 134, 254, 32, 43, 193, 142
1350 DATA 168, 2, 32, 20, 193, 96, 32, 68, 229, 162, 150, 32
1360 DATA 167, 192, 232, 224, 180, 208, 248, 32, 174, 192, 32, 68
1370 DATA 229, 162, 0, 32, 167, 192, 232, 224, 28, 208, 248, 32
1380 DATA 174, 192, 32, 68, 229, 162, 28, 32, 167, 192, 232, 224
1390 DATA 56, 208, 248, 32, 174, 192, 32, 182, 192, 173, 174, 2
1400 DATA 208, 1, 96, 32, 68, 229, 174, 175, 2, 32, 167, 192
1410 DATA 232, 236, 176, 2, 208, 247, 32, 174, 192, 165, 57, 133
1420 DATA 20, 165, 58, 133, 21, 32, 19, 166, 32, 201, 166, 189
1430 DATA 153, 196, 32, 210, 255, 96, 169, 13, 32, 210, 255, 32
1440 DATA 153, 192, 138, 240, 49, 173, 169, 2, 208, 22, 224, 41
1450 DATA 176, 40, 202, 169, 39, 56, 229, 253, 133, 254, 228, 254
1460 DATA 176, 2, 232, 96, 208, 38, 232, 96, 224, 26, 240, 18
1470 DATA 202, 169, 24, 56, 229, 252, 133, 254, 228, 254, 176, 2
1480 DATA 232, 96, 208, 30, 232, 96, 238, 174, 2, 169, 56, 141
1490 DATA 175, 2, 169, 89, 141, 176, 2, 96, 238, 174, 2, 169
1500 DATA 89, 141, 175, 2, 169, 120, 141, 176, 2, 96, 238, 174
1510 DATA 2, 169, 120, 141, 175, 2, 169, 150, 141, 176, 2, 96
1520 DATA 173, 169, 2, 201, 1, 240, 4, 32, 74, 193, 96, 174
1530 DATA 169, 2, 189, 126, 196, 133, 251, 32, 74, 193, 96, 32
1540 DATA 253, 174, 32, 158, 183, 96, 166, 252, 32, 240, 233, 165
1550 DATA 253, 240, 11, 165, 209, 24, 101, 253, 133, 209, 144, 2
1560 DATA 230, 210, 32, 36, 234, 96, 32, 50, 193, 160, 0, 140
1570 DATA 170, 2, 32, 139, 193, 165, 251, 145, 209, 173, 168, 2
1580 DATA 145, 243, 173, 169, 2, 201, 1, 240, 9, 200, 140, 170
1590 DATA 2, 196, 254, 208, 22, 96, 238, 173, 2, 198, 254, 240
1600 DATA 13, 230, 252, 32, 50, 193, 32, 139, 193, 173, 169, 2
1610 DATA 16, 211, 96, 32, 139, 193, 173, 169, 2, 16, 202, 173
1620 DATA 169, 2, 201, 1, 240, 4, 32, 112, 194, 96, 32, 38
1630 DATA 195, 96, 173, 169, 2, 208, 36, 173, 171, 2, 208, 14
1640 DATA 198, 252, 32, 50, 193, 32, 231, 193, 230, 252, 32, 50
1650 DATA 193, 96, 230, 252, 32, 50, 193, 32, 231, 193, 198, 252
1660 DATA 32, 50, 193, 206, 171, 2, 96, 173, 171, 2, 208, 14
1670 DATA 198, 253, 32, 50, 193, 32, 231, 193, 230, 253, 32, 50
1680 DATA 193, 96, 230, 253, 32, 50, 193, 32, 231, 193, 198, 253
1690 DATA 32, 50, 193, 206, 171, 2, 96, 162, 0, 177, 209, 221
1700 DATA 126, 196, 240, 33, 232, 224, 11, 208, 246, 173, 169, 2
1710 DATA 208, 11, 162, 0, 189, 126, 196, 133, 251, 142, 172, 2
1720 DATA 96, 162, 0, 142, 172, 2, 232, 189, 126, 196, 133, 251
1730 DATA 96, 173, 169, 2, 208, 45, 173, 171, 2, 208, 20, 162
1740 DATA 0, 177, 209, 221, 141, 196, 240, 214, 232, 224, 4, 208
1750 DATA 246, 162, 1, 142, 172, 2, 96, 162, 0, 177, 209, 221
1760 DATA 137, 196, 240, 194, 232, 224, 4, 208, 246, 162, 1, 142
1770 DATA 172, 2, 96, 173, 171, 2, 208, 20, 162, 0, 177, 209
1780 DATA 221, 149, 196, 240, 180, 232, 224, 4, 208, 246, 162, 1
1790 DATA 142, 172, 2, 96, 162, 0, 177, 209, 221, 145, 196, 240
1800 DATA 160, 232, 224, 4, 208, 246, 162, 1, 142, 172, 2, 96
1810 DATA 165, 252, 208, 51, 238, 171, 2, 32, 154, 193, 173, 172
1820 DATA 2, 208, 1, 96, 173, 170, 2, 208, 8, 162, 6, 189
1830 DATA 126, 196, 133, 251, 96, 165, 254, 56, 237, 170, 2, 201
1840 DATA 1, 208, 8, 162, 5, 189, 126, 196, 133, 251, 96, 162
1850 DATA 8, 189, 126, 196, 133, 251, 96, 201, 24, 208, 48, 32
1860 DATA 154, 193, 173, 172, 2, 208, 1, 96, 173, 170, 2, 208
1870 DATA 8, 162, 4, 189, 126, 196, 133, 251, 96, 165, 254, 56
1880 DATA 237, 170, 2, 201, 1, 208, 8, 162, 10, 189, 126, 196
1890 DATA 133, 251, 96, 162, 7, 189, 126, 196, 133, 251, 96, 238
1900 DATA 171, 2, 32, 154, 193, 173, 172, 2, 208, 13, 32, 154
1910 DATA 193, 173, 172, 2, 208, 1, 96, 32, 180, 194, 96, 32
1920 DATA 154, 193, 173, 172, 2, 208, 4, 32, 128, 194, 96, 173
1930 DATA 170, 2, 208, 8, 162, 3, 189, 126, 196, 133, 251, 96
1940 DATA 165, 254, 56, 237, 170, 2, 201, 1, 208, 8, 162, 9
1950 DATA 189, 126, 196, 133, 251, 96, 162, 2, 189, 126, 196, 133
1960 DATA 251, 96, 165, 253, 208, 35, 238, 171, 2, 32, 154, 193
1970 DATA 173, 172, 2, 208, 1, 96, 173, 173, 2, 208, 4, 32
1980 DATA 133, 194, 96, 165, 254, 201, 1, 208, 4, 32, 185, 194
1990 DATA 96, 32, 4, 195, 96, 201, 39, 208, 32, 32, 154, 193
2000 DATA 173, 172, 2, 208, 1, 96, 173, 173, 2, 208, 4, 32
2010 DATA 151, 194, 96, 165, 254, 201, 1, 208, 4, 32, 203, 194
2020 DATA 96, 32, 22, 195, 96, 238, 171, 2, 32, 154, 193, 173
2030 DATA 172, 2, 208, 4, 32, 81, 195, 96, 32, 154, 193, 173
2040 DATA 172, 2, 208, 4, 32, 54, 195, 96, 173, 173, 2, 208
2050 DATA 4, 32, 159, 194, 96, 165, 254, 201, 1, 208, 4, 32
2060 DATA 211, 194, 96, 32, 30, 195, 96, 32, 43, 193, 202, 48
2070 DATA 45, 224, 25, 176, 41, 134, 251, 32, 43, 193, 202, 48
2080 DATA 33, 224, 25, 176, 29, 134, 252, 32, 217, 195, 32, 43
2090 DATA 193, 202, 48, 46, 224, 40, 176, 42, 134, 253, 32, 43
2100 DATA 193, 32, 245, 195, 134, 254, 32, 26, 196, 96, 32, 94
2110 DATA 192, 165, 251, 197, 252, 48, 18, 240, 16, 32, 68, 229
2120 DATA 162, 180, 32, 167, 192, 232, 224, 211, 208, 248, 32, 174
2130 DATA 192, 96, 32, 110, 192, 138, 240, 22, 224, 41, 176, 18
2140 DATA 202, 169, 39, 56, 229, 253, 133, 254, 228, 254, 176, 2
2150 DATA 232, 96, 208, 8, 232, 96, 32, 234, 192, 32, 135, 192
2160 DATA 32, 248, 192, 32, 135, 192, 166, 251, 32, 240, 233, 165
2170 DATA 253, 240, 11, 165, 209, 24, 101, 253, 133, 209, 144, 2
2180 DATA 230, 210, 169, 32, 160, 0, 145, 209, 200, 196, 254, 208
2190 DATA 249, 228, 252, 240, 4, 230, 251, 208, 217, 96, 32, 43
2200 DATA 193, 202, 48, 41, 224, 25, 176, 37, 134, 214, 32, 43
2210 DATA 193, 202, 48, 32, 224, 40, 176, 28, 134, 211, 32, 43
2220 DATA 193, 173, 134, 2, 133, 251, 142, 134, 2, 32, 253, 174
2230 DATA 32, 119, 196, 165, 251, 141, 134, 2, 96, 32, 94, 192
2240 DATA 32, 110, 192, 32, 108, 229, 32, 164, 170, 96, 64, 93
2250 DATA 91, 107, 109, 110, 112, 113, 114, 115, 125, 64, 110, 112
2260 DATA 114, 64, 109, 113, 125, 93, 107, 109, 112, 93, 110, 115
2270 DATA 125, 90, 69, 73, 76, 69, 78, 87, 69, 82, 84, 32
2280 DATA 60, 49, 32, 79, 68, 69, 82, 32, 62, 50, 53, 32
2290 DATA 32, 73, 78, 32, 58, 83, 80, 65, 76, 84, 69, 78
2300 DATA 87, 69, 82, 84, 32, 60, 49, 32, 79, 68, 69, 82
2310 DATA 32, 62, 52, 48, 32, 73, 78, 32, 58, 76, 65, 69
2320 DATA 78, 71, 69, 32, 76, 73, 78, 73, 69, 32, 90, 85
2330 DATA 32, 60, 32, 79, 68, 69, 82, 32, 90, 85, 32, 62
2340 DATA 32, 32, 73, 78, 32, 58, 83, 80, 65, 76, 84, 69
2350 DATA 32, 43, 32, 76, 65, 69, 78, 71, 69, 32, 76, 73
2360 DATA 78, 73, 69, 32, 62, 52, 48, 32, 32, 73, 78, 32
2370 DATA 58, 90, 69, 73, 76, 69, 32, 43, 32, 76, 65, 69
2380 DATA 78, 71, 69, 32, 76, 73, 78, 73, 69, 32, 62, 50
2390 DATA 53, 32, 32, 73, 78, 32, 58, 82, 73, 67, 72, 84
2400 DATA 85, 78, 71, 32, 87, 69, 82, 84, 32, 90, 85, 32
2410 DATA 62, 32, 40, 48, 45, 49, 41, 32, 32, 73, 78, 32
2420 DATA 58, 90, 69, 73, 76, 69, 32, 49, 32, 73, 83, 84
2430 DATA 32, 62, 32, 65, 76, 83, 32, 90, 69, 73, 76, 69
2440 DATA 32, 50, 32, 32, 73, 78, 32, 58